home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / gopher / Rice_CMS / gopher24 / gopher.exec < prev    next >
Encoding:
Text File  |  1993-01-12  |  1.2 KB  |  48 lines
  1. /*
  2.  *        Name: GOPHER EXEC
  3.  *     Purpose: VM InterNet Gopher client "wrapper" EXEC
  4.  *      Author: Rick Troth, Rice University, Information Systems
  5.  *        Date: 1992-Dec-23
  6.  *
  7.  *        Note: Tailor this locally to your own OBTAIN/DROP conventions
  8.  *
  9.  *        Note: Thanks to Nick LaFlamme for the linemode catcher.
  10.  */
  11.  
  12. Parse Source system .
  13. If system ^= "CMS" Then Do
  14.     Say "CMS Gopher does not run on" system
  15.     Exit -1
  16.     End  /*  If  ..  Do  */
  17.  
  18. Address "COMMAND"
  19.  
  20. 'PIPE COMMAND QUERY DISPLAY'
  21. If rc ^= 0 Then Do
  22.     drc = rc
  23.     'XMITMSG 523'
  24.     Say "CMS Gopher requires a full-screen terminal."
  25.     Exit drc
  26.     End  /*  If  ..  Do  */
  27.  
  28. 'STATE GOPCLI EXEC *'                   /*  this is how we access     */
  29. If rc ^= 0 Then 'EXEC OBTAIN GOPHER'    /*  applications on RICEVM1   */
  30.  
  31. 'GLOBALV SELECT GOPHER GET HOST'
  32. If host = "" Then host = "cwis.rice.edu"
  33. 'GLOBALV SELECT GOPHER PUTP HOST'
  34.  
  35. 'GLOBALV SELECT GOPHER GET NAME'
  36. If name = "" Then
  37.         name = "RiceInfo"
  38. /*      name = "Rice University Campus-Wide Information System"       */
  39. 'GLOBALV SELECT GOPHER PUTP NAME'
  40.  
  41. Parse Arg argstring
  42. 'EXEC GOPCLI' argstring
  43.  
  44. /*  'EXEC DROP GOPHER'  */
  45.  
  46. Exit rc
  47.  
  48.